0 IFX=0THENX=1:LOAD"SYSPLOTTERC.O",8,1
1 DIM LH(7,2),LV(7,2)
5 GOSUB 10000:REM MENU
10 SYS49152:SYS49158:SYS49161,1
20 SYS49164,2
22 LINE=49173:UNLINE=49176
25 :
30 X=A:Y=B:A=C:B=D:C=E:D=F:E=RND(1)*320:F=RND(1)*200:SYSUN,X,Y,A,B
32 SYSLI,C,D,E,F:IFPEEK(197)=64THEN30
35 SYS49155:PRINT"[147]":GETK$:RETURN
100 SYS49152:SYS49158:SYS49161,1
101 SYS49164,2
110 LI=49173:UN=49176
120 E=0:F=0
130 R=RND(1)*20+1:G=RND(1)*20+1
140 X=A:Y=B:A=C:B=D:C=E:D=F
150 E=E+RND(1)*R:F=F+RND(1)*G
155 IF PEEK(197)<>64 THEN 210
160 SYSUN,X,Y,A,B
170 SYSLI,C,D,E,F
180 IFRND(1)<.2THEN130
190 IFF<190THEN140
200 GOTO 120
210 GETK$:SYS49155:PRINT"[147]":RETURN
1000 SYS49152:SYS49158:SYS49161,1
1010 SYS49164,2
1020 LI=49173:UN=49176
1030 SYSLI,9,9,9,160
1040 SYSLI,9,160,300,160
1050 Y1=80:Y2=80:Y3=80:Y4=80:Y5=80
1055 SYSUN,10,S1,80,S2
1060 SYSLI,10,Y1,80,Y2
1065 SYSUN,80,S2,150,S3
1070 SYSLI,80,Y2,150,Y3
1075 SYSUN,150,S3,220,S4
1080 SYSLI,150,Y3,220,Y4
1085 SYSUN,220,S4,300,S5
1090 SYSLI,220,Y4,300,Y5
1091 S1=Y1:S2=Y2:S3=Y3:S4=Y4:S5=Y5
1100 Y1=Y1+(RND(1)*15)-7.5
1101 Y2=Y2+(RND(1)*15)-7.5
1103 Y3=Y3+(RND(1)*15)-7.5
1104 Y4=Y4+(RND(1)*15)-7.5
1105 Y5=Y5+(RND(1)*15)-7.5
1106 IFY1<10THENY1=10
1107 IFY1>160THENY1=160
1108 IFY2<10THENY2=10
1109 IFY2>160THENY2=160
1110 IFY3<10THENY3=10
1111 IFY3>160THENY3=160
1112 IFY4<10THENY4=10
1113 IFY4>160THENY4=160
1114 IFY5<10THENY5=10
1115 IFY5>160THENY5=160
1119 IF PEEK(197)=64 THEN 1055
1120 GETK$:SYS49155:PRINT"[147]":RETURN
10000 PRINT"[147]":POKE53281,0:POKE53280,0
10010 PRINT"SYSPLOTTERC DEMO PROGRAM"
10020 PRINT" CHOOSE ONE:"
10030 PRINT"1 = SILLY APPLICATION"
10040 PRINT"2 = ODD APPLICATION"
10050 PRINT"3 = SENSIBLE APPLICATION"
10060 PRINT"4 = BACK TO LOADSTAR"
10070 GETK$:IFK$=""THEN10070
10080 IFK$<"1"ORK$>"4"THENPOKE53280,RND(1)*15:GOTO10070
10090 K=VAL(K$)
10100 ONKGOSUB10,100,1000,63000
10200 GOTO 10000
63000 REM  CONNECT TO LS
63010 PRINT"[147]LOAD"CHR$(34)"HELLO"CHR$(34)",8":PRINT"RUN"
63020 POKE631,13:POKE632,13:POKE198,2:        END